#统计数：
frequency <- function(x, n) {
 m <- seq(min(x), max(x), by=(max(x) - min(x)) / n)
 k <- as.data.frame(table(cut(x, m, include.lowest = T)))
 k[, 2]
}

m <- length(x)

#计算值：
#一、移动极差MR：
MR <- abs(x[2:m] - x[1:m - 1])
